home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 May
/
64er_Magazin_90-05_1990_Markt__Technik_de_Side_A.d64
/
f+m adressdatei
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
149 lines
10 rem dateiverwaltung
20 rem mit dem f+m manager
30 :
100 (NULL)(1270)
110 si=54272:pokesi+3,8:pokesi+10,8:pokesi+24,15
120 gosub1160
130 :
140 print"[147]"chr$(142)(NULL)(12,4)"adress-verwaltung"
150 printtab(11)"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
160 printtab(11)"1. daten bearbeiten"
170 printtab(11)"2. datei anlegen"
180 printtab(11)"3. directory"
190 printtab(11)"4. diskbefehl/status"
200 printtab(11)"5. ende"
210 printtab(11)"ihre wahl ? ";
220 (NULL)a$,"12345"
230 on val(a$)goto 270,800,970,1040,1510
240 rem
250 rem daten bearbeiten
260 rem
270 re = 1
280 print"[147]"tab(12)"daten bearbeiten"
290 print" welche datei soll bearbeitet werden ?"
300 print" name [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166] -> f1"
310 gosub1520:gosub1530
320 s0$="adressen"
330 (NULL)2:(NULL):(NULL)3
340 ifs0$=""goto140
350 (NULL) s0$:s0$="l"
360 ar=asc(left$(in$,1))+256*asc(mid$(in$,2,1))
370 gosub480:gosub1220
380 gosub1390:(NULL)
390 be$=left$(s0$,1)
400 if be$="l"then:re=abs(val(s1$)):gosub480:goto380
410 if be$="s"then:re=abs(val(s1$)):gosub530:goto380
420 if be$="q"then:(NULL):run
430 if be$="f"then590
440 goto 380
450 :
460 :
470 :
480 fort=1to8:(NULL) re,t,s$(t-1):next
490 s2$=s$(0):s3$=s$(1):s4$=s$(2)
500 s5$=s$(3):s6$=s$(4):s7$=s$(5)
510 s8$=s$(6):s9$=s$(7):s1$=str$(re)
520 return
530 gosub 730
540 fort=1to8:(NULL) re,t,s$(t-1):next
550 return
560 :
570 :
580 :
590 fe=val(right$(s0$,1))
600 iffe=0thenfe=1
610 gosub730
620 f$=s$(fe-1)
630 for i=1toar:print(NULL)(13,4)" [157][157][157][157]";i
640 (NULL) i,fe,a$
650 iff$<>left$(a$,len(f$))then next
660 re=i:gosub480:gosub1390:(NULL)
670 print(NULL)(10,24)"weiter suchen (j/n) ?[157]";
680 (NULL) a$,"jn"
690 if a$="j"then next:goto370
700 i=ar : next
710 goto380
720 :
730 s$(0)=s2$:s$(1)=s3$:s$(2)=s4$
740 s$(3)=s5$:s$(4)=s6$:s$(5)=s7$
750 s$(6)=s8$:s$(7)=s9$
760 return
770 rem
780 rem datei anlegen
790 rem
800 print"[147]"tab(12)"datei anlegen"
810 printtab(4)"name der datei :[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]:"
820 printtab(4)"anzahl der datensaetze :[168][168][168][168]:"
830 printtab(4)"(maximal 1285 datensaetze)"
840 gosub1520:gosub1530
850 s0$="adressen":s1$="50"
860 (NULL)
870 if len(s0$)=0orval(s1$)=0thenrun
880 (NULL) "i"
890 (NULL)s0$,8,16,16,20,16,4,12,10,20,val(s1$)
900 (NULL) : if left$(ds$,1)="0"thenrun
910 print"disk fehler ":print""ds$
920 (NULL)a$
930 run
940 rem
950 rem directory lesen
960 rem
970 print"[147]"
980 (NULL)
990 (NULL)a$
1000 run
1010 rem
1020 rem diskbefehl
1030 rem
1040 print"[147] diskbefehl / status mit leereingabe"
1050 print" [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1055 gosub1530
1060 (NULL)
1070 if s0$=""then1090
1080 (NULL) s0$
1090 (NULL)
1100 print:printds$
1110 (NULL)a$
1120 run
1130 end
1140 rem sound
1150 rem
1160 pokesi+4,0:pokesi+11,0
1170 pokesi,75:pokesi+1,34:pokesi+5,10:pokesi+6,0:pokesi+4,65
1180 fork=1to300:next
1190 pokesi+7,177:pokesi+8,25:pokesi+12,10:pokesi+13,0:pokesi+11,65
1200 return
1210 :
1220 :
1230 pokesi,75:pokesi+1,34:poke54277,10:poke54278,0
1240 fori=1to4:pokesi+4,64:pokesi+4,65:fork=0to200:next:next
1250 return
1260 :
1270 ifpeek(2)<>33then1290
1280 print(NULL)(7,24)"datensatz existiert nicht! ";:goto1300
1290 print(NULL)(2,23)"disk error:";ds$;:(NULL)a$:goto140
1300 pokesi+4,0:pokesi+5,0:pokesi+6,245:pokesi+4,33
1310 fort=10to0step-2:forr=1to3:fori=12to8step-1:pokesi+1,r*i+t:nexti,r,t
1320 pokesi+4,0
1330 (NULL)a$
1340 goto380
1350 :
1360 rem
1370 rem
1380 rem
1390 print"[147] befehl [166][166] ausfuehren -> f1"
1400 print" datensatz# [168][168][168][168]"
1410 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
1420 print"1) vorname [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1430 print"2) nachname [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1440 print"3) strasse [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]:"
1450 print"4) wohnort [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1460 print"5) plz [168][168][168][168]"
1470 print"6) telefon [168][168][168][168][168][168][168][168][168][168][168][168]"
1480 print"7) geburtstag [168][168][168][168][168][168][168][168][168][168]"
1490 print"8) bemerkung [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1500 return
1510 print"[147]";:(NULL)"i":end
1520 print" zurueck mit leereingabe":return
1530 print" eingabe bestaetigen mit f1":return